
//------------------------------------------
// FIGURE 2: Bill Sponsorship by Issue
//------------------------------------------

clear
use house_effect.dta

graph twoway (bar effect bill if significance <=5, bargap(50) xtitle("") ytitle("Percent Change in Bill Sponsorship",size(small)) ///
xlabel(1 "macroeconomics" 2 "civil rights" 3 "health" 4 "agriculture" 5 "labor" 6 "education" 7 "environment" ///
8 "energy"  9 "immigration" 10 "transportation" 11 "law & order" 12 "welfare" 13 "housing" 14 "commerce" ///
15 "defense" 16 "technology" 17 "trade" 18 "international affairs" 19 "government operations" 20 "public lands", angle(45) labsize(small)) ///
fcolor(gs3) legend(off)) (bar effect bill if significance ==.,  lwidth(medium) bcolor(gs10)) ///
(rcap upper_bound lower_bound bill, lwidth(medthin) lcolor("gs3") graphregion(color(white)))



